home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / CLIMaster < prev    next >
Text File  |  1997-01-14  |  10KB  |  506 lines
  1. G4C
  2.  
  3.  
  4. winbig 0 11 640 224 "CLI-Master"
  5. winsmall 200 0 240 -1
  6. wintype 11110001
  7.  
  8.  
  9. xonload
  10. setvar cmst_screen ""
  11. ifexists file env:.cmst_cfg
  12.     guiload env:.cmst_cfg
  13. endif
  14. guiload :loader.g
  15. guiopen loader.g
  16. guiload :reader.g
  17. guiload :func.g
  18. guiload :protect.g
  19. guiload :comment.g
  20. guiload :hunt.g
  21. guiload :arc.g
  22. guiload :dms.g
  23. guiload :runreq.g
  24. run 'resident c:copy pure add'
  25. run 'resident c:filenote pure add'
  26. run 'resident c:list pure add'
  27. guiclose loader.g
  28. guiopen climaster
  29.  
  30. xonopen
  31. gosub climaster update
  32. setgad climaster 7 off
  33.  
  34. xonclose
  35. setgad climaster 7 on
  36.  
  37. xOnJump cmst_jmpscrn
  38. setscreen loader.g $cmst_jmpscrn
  39. setscreen reader.g $cmst_jmpscrn
  40. setscreen func.g $cmst_jmpscrn
  41. setscreen protect.g $cmst_jmpscrn
  42. setscreen comment.g $cmst_jmpscrn
  43. setscreen hunt.g $cmst_jmpscrn
  44. setscreen arc.g $cmst_jmpscrn
  45. setscreen dms.g $cmst_jmpscrn
  46. setscreen runreq.g $cmst_jmpscrn
  47. setvar cmst_screen $cmst_jmpscrn
  48.  
  49. xonkey #8
  50. setwintitle climaster 'CLI-Master'
  51. cli '$STOPCOM'
  52.  
  53. xonkey #5
  54. xonkey #18
  55.  
  56. xappicon 0 0 :climaster CLI-Master cmst_goto off
  57. gadid 7
  58. guiopen climaster
  59. if $cmst_goto > " "
  60.     gosub climaster godir
  61.     gosub climaster update
  62. endif
  63.  
  64. box 0 0 0 0 in icondrop
  65. box 10 156 260 60 in ridge
  66. box 280 156 340 60 in ridge
  67. ctext 98 158 " Archivers " topaz.font 8 2 0 000 
  68. ctext 408 158 " Functions " topaz.font 8 2 0 000 
  69.  
  70.  
  71. xlistview 10 19 255 120 "" cmst_select "" 0 dir
  72. gadid 1
  73. gadfont topaz.font 8 000
  74. gosub loader.g filetype
  75. lvdirhook 1
  76.  
  77. xlvdirhook 1
  78. setvar cmst_left $$LV_DIR
  79. gosub climaster update
  80.  
  81. xlistview 317 19 255 120 "" cmst_select "" 0 dir
  82. gadid 2
  83. gadfont topaz.font 8 000
  84. gosub loader.g filetype
  85. lvdirhook 2
  86.  
  87. xlvdirhook 2
  88. setvar cmst_right $$LV_DIR
  89. gosub climaster update
  90.  
  91. xtextin 10 5 285 13 "" cmst_left "" 80
  92. gadid 3
  93. lvdir climaster 1 #$cmst_left
  94. gosub climaster update
  95.  
  96. xtextin 317 5 285 13 "" cmst_right "" 80
  97. gadid 4
  98. lvdir climaster 2 #$cmst_right
  99. gosub climaster update
  100.  
  101. xbutton 296 5 20 13 "S"
  102. lvdir climaster 1 none
  103. gosub climaster update
  104.  
  105. xbutton 603 5 20 13 "S"
  106. lvdir climaster 2 none
  107. gosub climaster update
  108.  
  109. xbutton 10 135 97 12 "««« Move"
  110. lvmove climaster 1 -10
  111.  
  112. xbutton 168 135 97 12 "Move »»»"
  113. lvmove climaster 1 10
  114.  
  115. text 107 135 61 12 "" 6 box
  116. gadid 5 
  117. gadtxt center
  118.  
  119. xbutton 317 135 97 12 "««« Move"
  120. lvmove climaster 2 -10
  121.  
  122. xbutton 475 135 97 12 "Move »»»"
  123. lvmove climaster 2 10
  124.  
  125. text 414 135 61 12 "" 6 box
  126. gadid 6 
  127. gadtxt center
  128.  
  129. xbutton 266 19 50 12 "VOL"
  130. lvdir climaster 1 disks
  131. gosub climaster update
  132.  
  133. xbutton 266 31 50 12 "ROOT"
  134. lvdir climaster 1 root
  135. gosub climaster update
  136.  
  137. xbutton 266 43 50 12 "PAR"
  138. lvdir climaster 1 parent
  139. gosub climaster update
  140.  
  141. xbutton 266 65 50 12 "All"
  142. lvdir climaster 1 all
  143. gosub climaster update
  144.  
  145. xbutton 266 77 50 12 "None"
  146. lvdir climaster 1 none
  147. gosub climaster update
  148.  
  149. xbutton 266 89 50 12 "Refr"
  150. lvdir climaster 1 refresh
  151. gosub climaster update
  152.  
  153. xButton 266 111 50 12 "S=D"
  154. if $cmst_srce = 1
  155.     lvdir climaster 2 #$cmst_left
  156.     lvdir climaster 1 none
  157.     gosub climaster update
  158.     update climaster 4 $cmst_left
  159. endif
  160. if $cmst_srce = 2
  161.     lvdir climaster 1 #$cmst_right
  162.     lvdir climaster 2 none
  163.     gosub climaster update
  164.     update climaster 3 $cmst_right
  165. endif
  166.  
  167. xbutton 266 123 50 12 "<-->"
  168. setvar cmst_temp  $cmst_right
  169. setvar cmst_right $cmst_left
  170. setvar cmst_left $cmst_temp
  171. delvar cmst_temp
  172. if $cmst_srce = 1
  173.     lvdir climaster 2 #$cmst_right
  174.     lvdir climaster 1 #$cmst_left
  175.     gosub climaster update
  176. endif
  177. if $cmst_srce = 2
  178.     lvdir climaster 1 #$cmst_left
  179.     lvdir climaster 2 #$cmst_right
  180.     gosub climaster update
  181. endif
  182.  
  183. xbutton 573 19 50 12 "VOL"
  184. lvdir climaster 2 disks
  185. gosub climaster update
  186.  
  187. xbutton 573 31 50 12 "ROOT"
  188. lvdir climaster 2 root
  189. gosub climaster update
  190.  
  191. xbutton 573 43 50 12 "PAR"
  192. lvdir climaster 2 parent
  193. gosub climaster update
  194.  
  195. xbutton 573 65 50 12 "All"
  196. lvdir climaster 2 all
  197. gosub climaster update
  198.  
  199. xbutton 573 77 50 12 "None"
  200. lvdir climaster 2 none
  201. gosub climaster update
  202.  
  203. xbutton 573 89 50 12 "Refr"
  204. lvdir climaster 2 refresh
  205. gosub climaster update
  206.  
  207. xbutton 370 162 80 12 "Copy"
  208. gosub climaster update
  209. gosub climaster nosource
  210. gosub climaster nodest
  211. gosub climaster nofile
  212. lvaction copy climaster $cmst_srce $cmst_destdir
  213. lvdir climaster $cmst_dest refresh
  214. lvdir climaster $cmst_srce none
  215.  
  216. xbutton 370 174 80 12 "Move"
  217. gosub climaster update
  218. gosub climaster nosource
  219. gosub climaster nodest
  220. gosub climaster nofile
  221. lvaction move climaster $cmst_srce $cmst_destdir
  222. lvdir climaster $cmst_dest refresh
  223. lvdir climaster $cmst_srce refresh
  224.  
  225. xbutton 370 186 80 12 "Delete"
  226. gosub climaster update
  227. gosub climaster nosource
  228. gosub climaster nofile
  229. lvaction delete climaster $cmst_srce req
  230.  
  231. xbutton 370 198 80 12 "Makedir"
  232. gosub climaster update
  233. gosub climaster nosource
  234. setvar cmst_mode "makedir"
  235. guiopen func.g
  236.  
  237. xbutton 450 162 80 12 "Rename"
  238. gosub climaster update
  239. gosub climaster nosource
  240. gosub climaster nofile
  241. setvar cmst_mode "rename"
  242. guiopen func.g
  243.  
  244. xbutton 450 174 80 12 "Edit"
  245. gosub climaster update
  246. gosub climaster nosource
  247. gosub climaster nofile
  248. cli '$DEF.EDITOR $cmst_select'
  249. lvdir climaster $cmst_srce refresh
  250.  
  251. xbutton 450 186 80 12 "Edit New"
  252. gosub climaster update
  253. gosub climaster nosource
  254. setvar cmst_mode "ednew"
  255. guiopen func.g
  256.  
  257. xbutton 450 198 80 12 "Clone"
  258. gosub climaster update
  259. gosub climaster nosource
  260. gosub climaster nofile
  261. setvar cmst_mode "clone"
  262. guiopen func.g
  263.  
  264. xbutton 530 162 80 12 "Move As"
  265. gosub climaster update
  266. gosub climaster nosource
  267. gosub climaster nodest
  268. gosub climaster nofile
  269. setvar cmst_mode "moveas"
  270. guiopen func.g
  271.  
  272. xbutton 530 174 80 12 "Copy As"
  273. gosub climaster update
  274. gosub climaster nosource
  275. gosub climaster nodest
  276. gosub climaster nofile
  277. setvar cmst_mode "copyas"
  278. guiopen func.g
  279.  
  280. xbutton 530 186 80 12 "New CLI"
  281. cd sys:
  282. cli 'newshell con:0/11/640/200/AmigaShell/auto/close from s:shell-startup'
  283.  
  284. xbutton 530 198 80 12 "Protect"
  285. gosub climaster update
  286. gosub climaster nosource
  287. gosub climaster nofile
  288. guiopen protect.g
  289.  
  290. xbutton 290 162 80 12 "Read"
  291. gosub climaster update
  292. gosub climaster nosource
  293. gosub climaster nofile
  294. guiopen reader.g
  295.  
  296. xbutton 290 174 80 12 "Comment"
  297. gosub climaster update
  298. gosub climaster nosource
  299. gosub climaster nofile
  300. guiopen comment.g
  301.  
  302. xbutton 290 186 80 12 "Hunt"
  303. gosub climaster update
  304. gosub climaster nosource
  305. guiopen hunt.g
  306.  
  307. xbutton 290 198 80 12 "User GUI"
  308. ifexists file $USERBUTS
  309.     guiload $USERBUTS
  310.     guiopen $USERBUTS
  311. else
  312.     ezreq "Either no User GUI exists, or\nyou need to set the USERBUTS\nconfiguration option." Okay ""
  313.     stop
  314. endif
  315.  
  316. xbutton 20 162 80 12 "LHA Add"
  317. gosub climaster update
  318. gosub climaster nosource
  319. gosub climaster nodest
  320. gosub climaster nofile
  321. setvar cmst_mode "lha"
  322. guiopen arc.g
  323.  
  324. xbutton 20 174 80 12 "LHA Ext"
  325. gosub climaster update
  326. gosub climaster nosource
  327. gosub climaster nodest
  328. gosub climaster nofile
  329. setvar cmst_mode "lha"
  330. gosub arc.g arc_x
  331.  
  332. xbutton 20 186 80 12 "LHA View"
  333. gosub climaster update
  334. gosub climaster nosource
  335. gosub climaster nofile
  336. setvar cmst_mode "lha"
  337. gosub arc.g arc_v
  338.  
  339. xbutton 20 198 80 12 "LHA Test"
  340. gosub climaster update
  341. gosub climaster nosource
  342. gosub climaster nofile
  343. setvar cmst_mode "lha"
  344. gosub arc.g arc_t
  345.  
  346. xbutton 100 162 80 12 "LZX Add"
  347. gosub climaster update
  348. gosub climaster nosource
  349. gosub climaster nodest
  350. gosub climaster nofile
  351. setvar cmst_mode "lzx"
  352. guiopen arc.g
  353.  
  354. xbutton 100 174 80 12 "LZX Ext"
  355. gosub climaster update
  356. gosub climaster nosource
  357. gosub climaster nodest
  358. gosub climaster nofile
  359. setvar cmst_mode "lzx"
  360. gosub arc.g arc_x
  361.  
  362. xbutton 100 186 80 12 "LZX View"
  363. gosub climaster update
  364. gosub climaster nosource
  365. gosub climaster nofile
  366. setvar cmst_mode "lzx"
  367. gosub arc.g arc_v
  368.  
  369. xbutton 100 198 80 12 "LZX Test"
  370. gosub climaster update
  371. gosub climaster nosource
  372. gosub climaster nofile
  373. setvar cmst_mode "lzx"
  374. gosub arc.g arc_t
  375.  
  376. xbutton 180 162 80 12 "DMS Read"
  377. gosub climaster update
  378. gosub climaster nosource
  379. setvar cmst_mode "dmsrd"
  380. guiopen dms.g
  381.  
  382. xbutton 180 174 80 12 "DMS Write"
  383. gosub climaster update
  384. gosub climaster nosource
  385. gosub climaster nofile
  386. setvar cmst_mode "dmswr"
  387. guiopen dms.g
  388.  
  389. xbutton 180 186 80 12 "DMS View"
  390. gosub climaster update
  391. gosub climaster nosource
  392. gosub climaster nofile
  393. setvar cmst_mode "dmsvw"
  394. gosub dms.g vandt
  395.  
  396. xbutton 180 198 80 12 "DMS Test"
  397. gosub climaster update
  398. gosub climaster nosource
  399. gosub climaster nofile
  400. setvar cmst_mode "dmstst"
  401. gosub dms.g vandt
  402.  
  403. xmenu "Project" "Config " "" C
  404. guiload :config.g
  405.  
  406. xmenu "Project" "About" "" A
  407. guiopen loader.g
  408.  
  409. xmenu "Project" "Iconify " "" I
  410. guiclose climaster
  411.  
  412. xmenu "Project" barlabel "" ""
  413.  
  414. xmenu "Project" "Quit" "" Q
  415. cli 'resident copy remove'
  416. cli 'resident filenote remove'
  417. cli 'resident list remove'
  418. guiquit reader.g
  419. guiquit func.g
  420. guiquit protect.g
  421. guiquit comment.g
  422. guiquit hunt.g
  423. guiquit arc.g
  424. guiquit dms.g
  425. guiquit runreq.g
  426. guiquit loader.g
  427. delvar cmst#?
  428. guiquit climaster
  429.  
  430. xmenu "Disk" "Format" "" F
  431. setvar cmst_mode "format"
  432. guiload :diskop.g
  433.  
  434. xmenu "Disk" "Disk Copy " "" D
  435. setvar cmst_mode "dcopy"
  436. guiload :diskop.g
  437.  
  438. xmenu "Disk" "Install" "" B
  439. setvar cmst_mode "install"
  440. guiload :diskop.g
  441.  
  442. xmenu "Disk" "Relabel" "" R
  443. setvar cmst_mode "relab"
  444. guiload :diskop.g
  445.  
  446.  
  447. xroutine nosource
  448. if $cmst_srcedir = ""
  449.     ezreq "No Source Directory!" Okay ""
  450.     stop
  451. endif
  452.  
  453. xroutine nodest
  454. if $cmst_destdir = ""
  455.     ezreq "No Target Directory!" Okay ""
  456.     stop
  457. endif
  458.  
  459. xroutine nofile
  460. lvmulti climaster $cmst_srce first
  461. if $cmst_select = ""
  462.    ezreq "No File(s) Selected" Okay ""
  463.    stop
  464. endif
  465. return
  466.  
  467. xroutine update
  468. setvar cmst_srce $$LV_ID
  469. if $cmst_srce = 1
  470.     setvar cmst_left $$LV_DIR
  471.     setvar cmst_dest 2
  472.     setvar cmst_srcedir $cmst_left
  473.     setvar cmst_destdir $cmst_right
  474.     update climaster 5 "SOURCE"
  475.     update climaster 6 "DEST"
  476. endif
  477. if $cmst_srce = 2
  478.     setvar cmst_right $$LV_DIR
  479.     setvar cmst_dest 1
  480.     setvar cmst_srcedir $cmst_right
  481.     setvar cmst_destdir $cmst_left
  482.     update climaster 5 "DEST"
  483.     update climaster 6 "SOURCE"
  484. endif
  485. update climaster 3 $cmst_left
  486. update climaster 4 $cmst_right
  487. return
  488.  
  489. xroutine godir
  490. ifexists DOS $cmst_goto
  491.     lvdir climaster $cmst_srce #$cmst_goto
  492.     return
  493. endif
  494. ifexists DIR $cmst_goto
  495.     lvdir climaster $cmst_srce #$cmst_goto
  496.     return
  497. endif
  498. ifexists FILE $cmst_goto
  499.     extract cmst_goto path cmst_aptemp
  500.     lvdir climaster $cmst_srce #$cmst_aptemp
  501.     extract cmst_goto file cmst_aptemp
  502.     lvfind climaster $cmst_srce $cmst_aptemp
  503.     return
  504. endif
  505.  
  506.